The following code is an example of how to open a new print job with PEOpenPrintJob, then close the print job with PEClosePrintJob.
LOCAL Job, cReport, nError
cReport = "C:\dbasewin\samples\myreport.rpt"
Job = PEOpenPrintJob(cReport)
IF Job = 0
nError = PEGetErrorCode(Job)
&& Handle error
PEClosePrintJob(Job)
return
ENDIF
PEClosePrintJob(Job)
Seagate Software IMG Holdings, Inc. http://www.seagatesoftware.com Support services: http://support.seagatesoftware.com |